<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>15</cardCount>
<cardID>7455</cardID>
<listID>6971</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>608</width>
<height>432</height>
</cardSize>
<script>on openStackenable bg button "Open Data"disable bg button "Close Data"disable bg button "Read Data"disable bg button "Write Data"disable bg button "Demo"disable bg button "Kuwait"end openStackon openCardput the number of this card into field theCardput field "object" into tempselect line temp of bg button "Vehicle"end openCardon newCardput 1 into field Objectend newCardfunction baseglobal theBaseif the enabled of bg button "Demo" is true thenput the selectedLine of bg button "Demo" into theLineelseput the selectedLine of bg button "Kuwait" into theLineend ifput word 2 of theLine into theMissionif theMission>7 then subtract 1 from theMissionif theMission>13 then subtract 1 from theMissionreturn (theMission-1)*41208+theBaseend basefunction nextHexglobal refNumput HornetNumRead(refNum) into tempif temp<0 then add 4294967296 to temprepeat 8 timesput temp mod 16 into cput temp div 16 into tempput HexToChar(c) before xend repeatreturn xend nextHexfunction HexToChar cif c=o thenreturn "0"elseif c<10 then return NumToChar(c-1+CharToNum("1"))elsereturn NumToChar(c-10+CharToNum("A"))end ifend ifend HexToCharFunction NumToHex xput HexToChar(x mod 16) into tempput HexToChar(x div 16) before tempreturn tempend NumToHexFunction Hex xreturn offset(x,"0123456789ABCDEF")-1end HexFunction HexToNum xreturn 16*Hex(char 1 of x)+Hex(char 2 of x)end HexToNumon NumWrite xglobal refNumif x<0 then add 4294967296 to xHornetNumWrite refNum,xend NumWrite</script>
